home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nautilus 1995 May
/
Nautilus CD Magazine Volume 5-5 May 1995 Windows Edition.mdf
/
setup
/
nautcd
/
mpt.sbk
(
.txt
)
< prev
next >
Wrap
Asymetrix ToolBook File
|
1995-02-07
|
52KB
|
1,049 lines
%"?s
System
versionID
Arial
DriveListViewer
Page id 2
tools
Page id 4
Tools
Reader
Open &Tools Window
closeWindow
Window
~= Reader
"Open &Tools
NautilusCD MPT System Book v. 3.11
Contents
1993-1995 Metatec Corp.
All Rights Reservedeserved
&Compact Book
compactBook
buttonClick
onClick
compactBook
&File
&Open... Ctrl+O
&Save Ctrl+S
Save &As...
saveas
&Import...
import
&Export...
export
Print Set&up...
printsetup
&Print Pages... Ctrl+P
printpages
Prin&t Report...
printreport
Send &Mail...
sendmail
&Run...
E&xit Alt+F4
&Edit
&Undo Ctrl+Z
Cu&t Ctrl+X
&Copy Ctrl+C
&Paste Ctrl+V
paste
C&lear Del
clear
Select &All Shift+F9
selectall
Select Pa&ge Shift+F12
selectpage
&Size to Page F11
sizetopage
F&ind... F5
search
Re&place...
replace
A&uthor F3
author
&Text
&Character... F6
character
&Paragraph... F7
paragraph
&Regular Ctrl+Space
regular
&Bold Ctrl+B
&Italic Ctrl+I
italic
&Underline Ctrl+U
underline
Stri&keout Ctrl+K
strikeout
Superscrip&t/Subscript
super/subscript
&Normal Script
normalscript
Su&bscript Ctrl+L
subscript
Su&perscript Ctrl+Shift+L
superscript
&Show Hotwords F9
showhotwords
&Page
&Next Alt+Right
&Previous Alt+Left
previous
&First Alt+Up
first
&Last Alt+Down
&Back Shift+F2
&History... Ctrl+F2
history
N&ew Page Ctrl+N
newpage
&Help
&Contents F1
contents
Status &Bar F12
statusbar
Small Fonts
`V;N;N;
initMPT szAppName,szShortName,szVersionID,szConfigFile,szDiscConfigFile, \
szIndexApp,szIndexCaption
xinitSysArray(
-- Trap WM_SYSCOMMAND
SC_CLOSE so that
-- shutDown can be called
perform cleanup
translateWindowMessage
windowHandle
on 0x0005
WM_SIZE
on 0x0112
szSysInfo[]
gwAppName,wShortName,wVersionID,wConfigFile,wDiscConfigFile
gwRomDrive,wStartupDir,wExtension,wIndexApp,wIndexCaption
y = 1
z = 2
x = 3
v = 4
s = 5
E = 6
D = 7
w = 8
v = 9
s = 10
] =
] =
] =
] =
iniString(
],"STARTUP","startupDir","",256)
writeIniItem(
>ir",myPath())
dir
now known (
)least guessed
)) so we
-- ahead
attempt
link TBK DLLs.
linkTBKFunctions CAN
the event
cannot
:, so test
romDrive","",256)
findRomDrive()
strBadSetup("Cannot determine CD-ROM
extension","ncd",4)
szDLL,szPath
gwTries
Zlogical bSysSuspend
A = "tb30dos.dll"
V = 1
linkDLL
copyFile(
removeFile(
createDirectory(
getFileAttributes(
\getFileSize(
getFileDate(
setFileAttributes(
getCurrentDrive()
getCurrentDirectory(
getDriveList()
getFileList(
getFileOnlyList(
getDirectoryOnlyList(
setCurrentDirectory(
getCDDriveList()
setCurrentDrive(
fileExists(
= sysToolBookDirectory &
= 4)
TB30DOS.
missing
working directory" && \
xfound on your path.")
o= default
= "tb30win.
popMenu(
TB30WIN.
= "tb30dlg.
openFileDlg(
openDlg(
saveAsDlg(
chooseDirectoryDlg(
TB30DLG.
playMedia szMediaSource,bInPlace,dwMediaLength,stMediaSize,bIsControls
,szGalleryFile
{objTarget
szExec,szFileName,szMediaType
8bkMediaViewer
-- *** mediaViewer()
a handler
MEDIA.VWR which returns '
' *** --
statusMsg
xpresent
xproperly initialized."
xisType("
) -- *** Not CDAudio *** --
= gallery
-- ***
frame
display *** --
playGallery
xisFile(
" &&
& ". Please
acertain" && \
" &&
] && "disc
drive."
= mediaType(
= "Unsupported
"Unknown
unsupported
configFile(),"
Viewers",
",256)
<> "
" &&
" &&
-- ***
uses
whether
*** --
-- *** needs
poll
device element
length
*** --
continueMsg()
playMCI
"Opening" &&
& "..."
"Click
d..."
fPlacement
..."
) -- ***
" &&
& ".
" &&
] && "
-- ***
p*** --
pgNotify
uspendPageMedia
,bSysMediaSuspend
><> "NavBar"
--
--
Y = sysMediaSuspend
--
--
--
--
mmIsOpen
clip "
mmClose
wait
--
--
` =
--
> =
--
" &&
& ".
" &&
] && "
--
..."
currentPage
mmBackGroundPalette
mmSource
mmTimeFormat
= frames
mmEndPoint
= mmSourceLength
mmOpen
initGalleryViewer
--
--
closeGallery
x(bSuspendPageMedia =
(enterPageMedia
) > 0
(leavePageMedia
) > 0
timerStart("single",500,50,
timerNotify wTimerID
,bPlayPageMedia,bInterrupted
4stack stPageMediaPlayed
MediaObjects
stMediaObjects =
buttonClick
N"Movie"
(objAfterImages
(objBeforeImages
MCINotify szStatus,szOperation,szDevice
szIdleCmds[]
szTemp
= = "aborted"
E = "
dimensions(
D) > 0
goToPage"
reset
} <>
fileExtension(
= "WAV"
"WaveAudio"
= "MID"
"Sequencer"
"BMP,DIB,GIF,PCX,TIF,WMF"
"Bitmap"
"AVI,MOV,FLI,FLC,MMM"
"TXT,DOC"
"Text"
= "RTF"
"Rich
openIndex szDir,
ghwnd
First
szDDEName
bFirst =
FindWindowByCaption(0,
() &
() &
Yield()
dn(0,
" &&
] && "
= "\"
discIssueID(),
= baseName(
r<> "OK"
DDE Link
" &&
] && "
keepRemote
ShowWindow(
BringWindowToTop(
openForm szBookRef
defaultPage
"FormViewer"
%modal
,wMsg,wParam
= 0xF060
szRetVal
= preference("quitPrompt","
0 = "
"Do you really want
f"Yes"
cleanUp
-- simple trap
, mag
app-specific sysBook didn't
isStartup
c(startupBookName()))
openStartup
) + 1] = "
logError szError,
szLogFile,szSysError,szLogString
nErrorNumber
= sysErrorNumber
fileOnly(
() &
".err"
~(".",
seekFile
logged on" &&
p&& "
)" &&
" && \
:" &&
=" &&
r=" &&
sysInfo() &
openMagazine
DEVELOP
,szFilters,
7#] && \
"(*." &
#] & "),*." &
#] & \
Books (*.?bk),*.?bk,All Files (*.*),*.*"
#] && \
"(*." &
#] & "),*." &
#] & \
- ) > 3
= = "\"
","",
j =
versionID
xisAppBook(
strDiscError()
" &&
& ". It may be
incompatible
corrupted
strWrongVersion(
-- *** May be opening magazine
tools
e*** --
<> "\"
szFileSpec
nFoundIt
gwMode
* = "\"
G = SetErrorMode(0x8000 bitOr 0x0001)
= SEM_NOOPENFILEERRORBOX; 0
& = SEM_NOCRITICALERRORBOX
-- ***
!) appears
error mode *** --
-) 0x4000 = OF_EXIST
= 1)
appName
discName
discIniString("DISC INFO","DiscName","",128)
shortName
bookInfo wBookIndex,wInfoItem
szBookInfo[][]
bookInfoByBookID szBookName,
gwBookID
runtimePath
RuntimePath","",256)
discVersionID
","",16)
discConfigFile
indexApp
indexCaption
setRomDrive
szRomDrive
) > 3
= "\"
!"Select
^ <>
o <> "\"
*] =
setStartupDirectory
*",".")
<> "\"
I+] =
/*r",
'success
+] =
+] =
<> -3
t = TRUE
section, entry,
%, bufSize
szDiscIni
gwBufSize
,] &
S = 256
discIssueName
issueName","",64)
issueID","",16)
szPref,szDefault
.],"Prefs",
9,256)
="replace
*OnRomDrive
bOnRomDrive = (
","",256)
((
z/])
szInstalled,
%"0.0"
%"0.0"
" &&
0] && "
!" &
1" &&
x && "
installed
are attempting
a" && \
1" &&
1 && "
k& "You
wish
upgrade" && \
T.latest
" &&
0] & "."
wrongDiscVersion
szDialog
%"0.0"
%"0.0"
" &&
1] && "
!" &
" &&
&& "
a" && \
" &&
F3 && "
"Do
now?"
!2] & "setup.exe")
g( = "
" &&
L2] & "
( && \
"-F" &
i2] & "
.ins" &
"Upgrade program
asure
" && \
3] && "
2,CD-
0 str
correct
problem."
-- *** For NautilusCD, NCD.SBK
ca helpAbout
')shows *** --
-- *** a
contained
H bitmap
*** --
UszCompany
szHelpAbout,szYear
%"y"
i4] && "
5" &&
i4] &
"Copyright(c)" &&
f & ","
"Portions
& ", Metatec Corp."
&& "
rights reserved." &
selectDir
0",".")
-- ***
3.2+ Stuff *** --
1 = "fts30mtb.
5] &
1 = 1
--
ftsSearch(
--
--
--
_2 = 2
x2 =
$0y &
--
2 = 3
--
2 = 4
() &
--
2 = 5)
2 = 5
fullTextSearch
szIndexName
-- -- ftsIndexName
a userProperty placed
-- --
4Tools
builds
must
4 <> NULL
4 <> "\"
--
-- pgRef =
F4 &
-- --
have had
x1 removed
--
-- insert
--
--
isObject(
a valid
--
-- otherwise...
5navigate
" &&
--
ncdVGA
6 1u7[V
<@hw=
D=PSE
WM_SIZE
false
BinitSysArray
WM_SYSCOMMAND
initMPT
wDiscConfigFile
myPath
linkTBKFunctions
false
szSysInfo
Cannot determine CD-ROM Drive.
wStartupDir
wExtension
wAppName
wIndexCaption
wVersionID
wRomDrive
wIndexApp
iniString
romDrive
findRomDrive
wShortName
extension
wConfigFile
strBadSetup
STARTUP
,writeIniItem
startupDir
initSysArray
strBadSetup
tb30dos.dll
tb30win.dll
TB30DLG.DLL is missing from the working directory
false
szSysInfo
tb30dlg.dll
wStartupDir
copyFile
, TpDir-"
removeFile
createDirectory
, TszSy-"
getFileAttributes
STAg
getFileSize
getFileDate
, URTUPg
setFileAttributes
getCurrentDrive
UinkTg
getCurrentDirectory
getDriveList
getFileList
getFileOnlyList
falg
getDirectoryOnlyList
, Usiong
setCurrentDirectory
getCDDriveList
setCurrentDrive
, TDriv-"
fileExists
+!popMenu
openFileDlg
openDlg
, U<"
saveAsDlg
chooseDirectoryDlg
TB30WIN.DLL is missing from the working directory
default
or was not found on your path.
TB30DOS.DLL is missing from the working directory
linkTBKFunctions
.&+ +E
+ , #?
the right
Opening
!=gallery
Unknown or unsupported media.
configFile
Media Viewers
szSysInfo
mediaType
wRomDrive
mediaViewer
statusMsg
Unsupported media
isFile
Cannot find
disc is in the drive.
playGallery
mediaType
Media Viewer (file MEDIA.VWR) not present or not properly initialized.
wAppName
continueMsg
playMedia
iniString
objTarget
E<playMCI
objTarget
bkMediaViewer
szSysInfo
szGalleryFile
dwMediaLength
bSysSuspend
bIsControls
bInPlace
szFileName
mediaType
szExec
szMediaSource
wRomDrive
stMediaSize
szMediaType
wAppName
CDAudio
default
. Please make certain
playMedia
Click to continue...
continueMsg
.&+ +E
+ , #?
the right
statusMsg
szSysInfo
mediaViewer
Opening Media...
isFile
Cannot find
disc is in the drive.
wRomDrive
Media Viewer (file MEDIA.VWR) not present or not properly initialized.
wAppName
continueMsg
E<playMCI
default
. Please make certain
playMCI
w, "V
w, "V
LleavePageMedia
szSysInfo
zZenterPageMedia
single
bSuspendPageMedia
pgNotify
enterPage
bInterrupted
bPlayPageMedia
reader
Movie
zZenterPageMedia
statusMsg
bSuspendPageMedia
pgNotify
szMediaType
stPageMediaPlayed
timerNotify
w+U!!
w+U!8
bInterrupted
bPlayPageMedia
reader
Movie
JaobjAfterImages
objBeforeImages
statusMsg
bSuspendPageMedia
LleavePageMedia
szMediaType
leavePage
aborted
szIdleCmds
send goToPage
szIdleCmds
szOperation
szStatus
szTemp
szDevice
MCINotify
WaveAudio
Movie
SfileExtension
Bitmap
AVI,MOV,FLI,FLC,MMM
BMP,DIB,GIF,PCX,TIF,WMF
Sequencer
TXT,DOC
Unsupported media
Rich Text Format
CDAudio
mediaType
+ , #>
+ , #>
+ , #?
+ , #?
cFindWindowByCaption
strBadSetup
Cannot run
startupDir
discIssueID
szSysInfo
PbaseName
isFile
wAppName
wIndexCaption
wIndexApp
Yield
Cannot open DDE Link to
BringWindowToTop
Index.
ShowWindow
openIndex
szSysInfo
wRomDrive
FormViewer
openForm
shutDown
WWM_SYSCOMMAND
WM_SYSCOMMAND
Do you really want to exit?
preference
06cleanUp
quitPrompt
shutDown
cleanUp
w, "@
startupBookName
isStartup
.&+ +E
strBadSetup
startupBookName
szIdleCmds
Cannot find Startup book.
send sizeToPage
default
openStartup
-", #?
w, #>
sysError =
startupDir
Error logged on
sysErrorNumber =
isFile
EofileOnly
SsysInfo
Error:
in file
logError
+ , #>
+ , #>
+ , #>
+ , #>
.&+ +E
,All Files (*.*),*.*
strWrongVersion
. It may be an incompatible or corrupted file.
szSysInfo
wStartupDir
wExtension
W7strDiscError
openFileDlg
wVersionID
default
isAppBook
DEVELOP
wShortName
qtromDrive
,ToolBook Books (*.?bk),*.?bk,All Files (*.*),*.*
Cannot open
versionID
Open Magazine
openMagazine
myPath
fileExists
false
isFile
szSysInfo
wAppName
appName
DiscName
=PdiscIniString
DISC INFO
discName
szSysInfo
wShortName
shortName
szSysInfo
wVersionID
versionID
szBookInfo
bookInfo
+ , "@
szBookInfo
wBookID
bookInfoByBookID
RuntimePath
=PdiscIniString
DISC INFO
runtimePath
version
=PdiscIniString
DISC INFO
discVersionID
szSysInfo
wConfigFile
configFile
wDiscConfigFile
szSysInfo
discConfigFile
szSysInfo
wIndexApp
indexApp
szSysInfo
wIndexCaption
indexCaption
szSysInfo
wRomDrive
romDrive
szSysInfo
qtromDrive
.chooseDirectoryDlg
wRomDrive
romDrive
Select ROM Drive
configFile
STARTUP
,writeIniItem
setRomDrive
wStartupDir
szSysInfo
.chooseDirectoryDlg
Select Startup Directory
wConfigFile
STARTUP
,writeIniItem
startupDir
setStartupDirectory
szSysInfo
wStartupDir
startupDir
+ , /
myPath
setCurrentDirectory
szSysInfo
wStartupDir
setCurrentDrive
setStartupDirectory
szSysInfo
wExtension
extension
+ , >
+ , #>
wDiscConfigFile
szSysInfo
isFile
wRomDrive
iniString
discIniString
issueName
=PdiscIniString
DISC INFO
discIssueName
issueID
=PdiscIniString
DISC INFO
discIssueID
szSysInfo
iniString
Prefs
wConfigFile
preference
Wrong or missing disc! Please replace and try again.
strDiscError
+ , "Q
+ , "Q
+ , "@
+ , "@
szSysInfo
wAppName
wRomDrive
appName
wShortName
=PdiscIniString
DISC INFO
isAppBook
+ , #?
+ , #?
Wrong
szSysInfo
version!
to the latest version of
wAppName
wVersionID
is installed and you are attempting to open a
You may wish to upgrade
file.
Version
strWrongVersion
+ , #?
Wrong
szSysInfo
version!
wAppName
Do you wish to perform an upgrade now?
disc is in the drive.
wVersionID
is installed and a
X6upgrade
Version
wrongDiscVersion
+ , #>
+ , #>
+ , #?
szSysInfo
szExec
wRomDrive
wAppName
szSysInfo
upgrade.ins
isFile
wRomDrive
Yield
wAppName
Upgrade program not found. Please make sure the latest
disc is in your CD-ROM drive.
setup.exe
upgrade
Please run Setup to correct this problem.
strBadSetup
+ , #?
w, #>
Copyright(c)
szSysInfo
Portions Copyright(c)
, Metatec Corp.
wAppName
wVersionID
Metatec Corp.
SsysInfo
All rights reserved.
Version
helpAbout
.chooseDirectoryDlg
Select Directory
selectDir
"WAV"